unit untDM;

interface

uses
  SysUtils, Classes, DBXpress, DB, SqlExpr, FMTBcd, DBClient, Provider;

type
  TDM = class(TDataModule)
    Banco: TSQLConnection;
    sdsCidade: TSQLDataSet;
    dspcidade: TDataSetProvider;
    cdscidade: TClientDataSet;
    sdsCliente: TSQLDataSet;
    cdsCliente: TClientDataSet;
    dspCliente: TDataSetProvider;
    sdsVendedor: TSQLDataSet;
    dspVendedor: TDataSetProvider;
    cdsVendedor: TClientDataSet;
    cdsProduto: TClientDataSet;
    dspProduto: TDataSetProvider;
    sdsProduto: TSQLDataSet;
    cdsIVenda: TClientDataSet;
    dspIVenda: TDataSetProvider;
    sdsIvenda: TSQLDataSet;
    sdsVenda: TSQLDataSet;
    cdsVenda: TClientDataSet;
    dspVenda: TDataSetProvider;
    cdsCategoria: TClientDataSet;
    dspCategoria: TDataSetProvider;
    sdsCategoria: TSQLDataSet;
    qConsulta: TSQLQuery;
    cdsContasReceber: TClientDataSet;
    dspContasReceber: TDataSetProvider;
    sdsContasReceber: TSQLDataSet;
    cdsFornecedor: TClientDataSet;
    dspFornecedor: TDataSetProvider;
    sdsFornecedor: TSQLDataSet;
    sdsProximoCodigo: TSQLDataSet;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
     transacao:TTransactionDesc;
     function RegistroExiste(pComando : String) : Boolean;

  end;

var
  DM: TDM;

implementation

{$R *.dfm}

function TDM.RegistroExiste(pComando: String): Boolean;
begin
  Result := False;
  if (pComando = '') then Exit;

  with qConsulta do
  begin
    Close;
    with SQL do
    begin
      Clear;
      Add (pComando);
    end;
    Open;
    Result := Not (IsEmpty);
  end;
end;

procedure TDM.DataModuleCreate(Sender: TObject);
begin
 transacao.TransactionID:=1;
 transacao.IsolationLevel:=xilREADCOMMITTED;
end;

end.
